;; rlwrap larceny -r7rs < test.scm
;; csi -require-extension r7rs test.scm

;;(import (scheme base) (scheme write) (scheme file))
(import (utils) (collector) (sets) (syntax-object))

;;(include "../library/collect.scm")

(include "token.scm")
(include "emit-token.scm")
(include "tokenizer.gen.scm")
(include "tokenizer.scm")
(include "parse.scm")

(define (write-line t) (pretty-print t) (newline))

(call-with-input-file "test.scm"
  (lambda (p)
    (for-each write-line (tokenize p))))

(set! parser-filename "test.scm")
(set! strip #f)

(call-with-input-file "test.scm"
  (lambda (p)
    (for-each write-line (read-s* (tokenize p)))))
